home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / interp / perl5.005.tar.gz / perl5.005.tar / perl5.005 / byterun.c < prev    next >
C/C++ Source or Header  |  1998-07-21  |  15KB  |  868 lines
  1. /*
  2.  *      Copyright (c) 1996-1998 Malcolm Beattie
  3.  *
  4.  *      You may distribute under the terms of either the GNU General Public
  5.  *      License or the Artistic License, as specified in the README file.
  6.  *
  7.  */
  8. /*
  9.  * This file is autogenerated from bytecode.pl. Changes made here will be lost.
  10.  */
  11.  
  12. #include "EXTERN.h"
  13. #include "perl.h"
  14.  
  15. void *
  16. bset_obj_store(void *obj, I32 ix)
  17. {
  18.     if (ix > PL_bytecode_obj_list_fill) {
  19.     if (PL_bytecode_obj_list_fill == -1)
  20.         New(666, PL_bytecode_obj_list, ix + 1, void*);
  21.     else
  22.         Renew(PL_bytecode_obj_list, ix + 1, void*);
  23.     PL_bytecode_obj_list_fill = ix;
  24.     }
  25.     PL_bytecode_obj_list[ix] = obj;
  26.     return obj;
  27. }
  28.  
  29. #ifdef INDIRECT_BGET_MACROS
  30. void byterun(struct bytestream bs)
  31. #else
  32. void byterun(PerlIO *fp)
  33. #endif /* INDIRECT_BGET_MACROS */
  34. {
  35.     dTHR;
  36.     int insn;
  37.     while ((insn = BGET_FGETC()) != EOF) {
  38.     switch (insn) {
  39.       case INSN_COMMENT:        /* 35 */
  40.         {
  41.         comment_t arg;
  42.         BGET_comment_t(arg);
  43.         arg = arg;
  44.         break;
  45.         }
  46.       case INSN_NOP:        /* 10 */
  47.         {
  48.         break;
  49.         }
  50.       case INSN_RET:        /* 0 */
  51.         {
  52.         BSET_ret(none);
  53.         break;
  54.         }
  55.       case INSN_LDSV:        /* 1 */
  56.         {
  57.         svindex arg;
  58.         BGET_svindex(arg);
  59.         PL_bytecode_sv = arg;
  60.         break;
  61.         }
  62.       case INSN_LDOP:        /* 2 */
  63.         {
  64.         opindex arg;
  65.         BGET_opindex(arg);
  66.         PL_op = arg;
  67.         break;
  68.         }
  69.       case INSN_STSV:        /* 3 */
  70.         {
  71.         U32 arg;
  72.         BGET_U32(arg);
  73.         BSET_OBJ_STORE(PL_bytecode_sv, arg);
  74.         break;
  75.         }
  76.       case INSN_STOP:        /* 4 */
  77.         {
  78.         U32 arg;
  79.         BGET_U32(arg);
  80.         BSET_OBJ_STORE(PL_op, arg);
  81.         break;
  82.         }
  83.       case INSN_LDSPECSV:        /* 5 */
  84.         {
  85.         U8 arg;
  86.         BGET_U8(arg);
  87.         BSET_ldspecsv(PL_bytecode_sv, arg);
  88.         break;
  89.         }
  90.       case INSN_NEWSV:        /* 6 */
  91.         {
  92.         U8 arg;
  93.         BGET_U8(arg);
  94.         BSET_newsv(PL_bytecode_sv, arg);
  95.         break;
  96.         }
  97.       case INSN_NEWOP:        /* 7 */
  98.         {
  99.         U8 arg;
  100.         BGET_U8(arg);
  101.         BSET_newop(PL_op, arg);
  102.         break;
  103.         }
  104.       case INSN_NEWOPN:        /* 8 */
  105.         {
  106.         U8 arg;
  107.         BGET_U8(arg);
  108.         BSET_newopn(PL_op, arg);
  109.         break;
  110.         }
  111.       case INSN_NEWPV:        /* 9 */
  112.         {
  113.         PV arg;
  114.         BGET_PV(arg);
  115.         break;
  116.         }
  117.       case INSN_PV_CUR:        /* 11 */
  118.         {
  119.         STRLEN arg;
  120.         BGET_U32(arg);
  121.         PL_bytecode_pv.xpv_cur = arg;
  122.         break;
  123.         }
  124.       case INSN_PV_FREE:        /* 12 */
  125.         {
  126.         BSET_pv_free(PL_bytecode_pv);
  127.         break;
  128.         }
  129.       case INSN_SV_UPGRADE:        /* 13 */
  130.         {
  131.         char arg;
  132.         BGET_U8(arg);
  133.         BSET_sv_upgrade(PL_bytecode_sv, arg);
  134.         break;
  135.         }
  136.       case INSN_SV_REFCNT:        /* 14 */
  137.         {
  138.         U32 arg;
  139.         BGET_U32(arg);
  140.         SvREFCNT(PL_bytecode_sv) = arg;
  141.         break;
  142.         }
  143.       case INSN_SV_REFCNT_ADD:        /* 15 */
  144.         {
  145.         I32 arg;
  146.         BGET_I32(arg);
  147.         BSET_sv_refcnt_add(SvREFCNT(PL_bytecode_sv), arg);
  148.         break;
  149.         }
  150.       case INSN_SV_FLAGS:        /* 16 */
  151.         {
  152.         U32 arg;
  153.         BGET_U32(arg);
  154.         SvFLAGS(PL_bytecode_sv) = arg;
  155.         break;
  156.         }
  157.       case INSN_XRV:        /* 17 */
  158.         {
  159.         svindex arg;
  160.         BGET_svindex(arg);
  161.         SvRV(PL_bytecode_sv) = arg;
  162.         break;
  163.         }
  164.       case INSN_XPV:        /* 18 */
  165.         {
  166.         BSET_xpv(PL_bytecode_sv);
  167.         break;
  168.         }
  169.       case INSN_XIV32:        /* 19 */
  170.         {
  171.         I32 arg;
  172.         BGET_I32(arg);
  173.         SvIVX(PL_bytecode_sv) = arg;
  174.         break;
  175.         }
  176.       case INSN_XIV64:        /* 20 */
  177.         {
  178.         IV64 arg;
  179.         BGET_IV64(arg);
  180.         SvIVX(PL_bytecode_sv) = arg;
  181.         break;
  182.         }
  183.       case INSN_XNV:        /* 21 */
  184.         {
  185.         double arg;
  186.         BGET_double(arg);
  187.         SvNVX(PL_bytecode_sv) = arg;
  188.         break;
  189.         }
  190.       case INSN_XLV_TARGOFF:        /* 22 */
  191.         {
  192.         STRLEN arg;
  193.         BGET_U32(arg);
  194.         LvTARGOFF(PL_bytecode_sv) = arg;
  195.         break;
  196.         }
  197.       case INSN_XLV_TARGLEN:        /* 23 */
  198.         {
  199.         STRLEN arg;
  200.         BGET_U32(arg);
  201.         LvTARGLEN(PL_bytecode_sv) = arg;
  202.         break;
  203.         }
  204.       case INSN_XLV_TARG:        /* 24 */
  205.         {
  206.         svindex arg;
  207.         BGET_svindex(arg);
  208.         LvTARG(PL_bytecode_sv) = arg;
  209.         break;
  210.         }
  211.       case INSN_XLV_TYPE:        /* 25 */
  212.         {
  213.         char arg;
  214.         BGET_U8(arg);
  215.         LvTYPE(PL_bytecode_sv) = arg;
  216.         break;
  217.         }
  218.       case INSN_XBM_USEFUL:        /* 26 */
  219.         {
  220.         I32 arg;
  221.         BGET_I32(arg);
  222.         BmUSEFUL(PL_bytecode_sv) = arg;
  223.         break;
  224.         }
  225.       case INSN_XBM_PREVIOUS:        /* 27 */
  226.         {
  227.         U16 arg;
  228.         BGET_U16(arg);
  229.         BmPREVIOUS(PL_bytecode_sv) = arg;
  230.         break;
  231.         }
  232.       case INSN_XBM_RARE:        /* 28 */
  233.         {
  234.         U8 arg;
  235.         BGET_U8(arg);
  236.         BmRARE(PL_bytecode_sv) = arg;
  237.         break;
  238.         }
  239.       case INSN_XFM_LINES:        /* 29 */
  240.         {
  241.         I32 arg;
  242.         BGET_I32(arg);
  243.         FmLINES(PL_bytecode_sv) = arg;
  244.         break;
  245.         }
  246.       case INSN_XIO_LINES:        /* 30 */
  247.         {
  248.         long arg;
  249.         BGET_I32(arg);
  250.         IoLINES(PL_bytecode_sv) = arg;
  251.         break;
  252.         }
  253.       case INSN_XIO_PAGE:        /* 31 */
  254.         {
  255.         long arg;
  256.         BGET_I32(arg);
  257.         IoPAGE(PL_bytecode_sv) = arg;
  258.         break;
  259.         }
  260.       case INSN_XIO_PAGE_LEN:        /* 32 */
  261.         {
  262.         long arg;
  263.         BGET_I32(arg);
  264.         IoPAGE_LEN(PL_bytecode_sv) = arg;
  265.         break;
  266.         }
  267.       case INSN_XIO_LINES_LEFT:        /* 33 */
  268.         {
  269.         long arg;
  270.         BGET_I32(arg);
  271.         IoLINES_LEFT(PL_bytecode_sv) = arg;
  272.         break;
  273.         }
  274.       case INSN_XIO_TOP_NAME:        /* 34 */
  275.         {
  276.         pvcontents arg;
  277.         BGET_pvcontents(arg);
  278.         IoTOP_NAME(PL_bytecode_sv) = arg;
  279.         break;
  280.         }
  281.       case INSN_XIO_TOP_GV:        /* 36 */
  282.         {
  283.         svindex arg;
  284.         BGET_svindex(arg);
  285.         *(SV**)&IoTOP_GV(PL_bytecode_sv) = arg;
  286.         break;
  287.         }
  288.       case INSN_XIO_FMT_NAME:        /* 37 */
  289.         {
  290.         pvcontents arg;
  291.         BGET_pvcontents(arg);
  292.         IoFMT_NAME(PL_bytecode_sv) = arg;
  293.         break;
  294.         }
  295.       case INSN_XIO_FMT_GV:        /* 38 */
  296.         {
  297.         svindex arg;
  298.         BGET_svindex(arg);
  299.         *(SV**)&IoFMT_GV(PL_bytecode_sv) = arg;
  300.         break;
  301.         }
  302.       case INSN_XIO_BOTTOM_NAME:        /* 39 */
  303.         {
  304.         pvcontents arg;
  305.         BGET_pvcontents(arg);
  306.         IoBOTTOM_NAME(PL_bytecode_sv) = arg;
  307.         break;
  308.         }
  309.       case INSN_XIO_BOTTOM_GV:        /* 40 */
  310.         {
  311.         svindex arg;
  312.         BGET_svindex(arg);
  313.         *(SV**)&IoBOTTOM_GV(PL_bytecode_sv) = arg;
  314.         break;
  315.         }
  316.       case INSN_XIO_SUBPROCESS:        /* 41 */
  317.         {
  318.         short arg;
  319.         BGET_U16(arg);
  320.         IoSUBPROCESS(PL_bytecode_sv) = arg;
  321.         break;
  322.         }
  323.       case INSN_XIO_TYPE:        /* 42 */
  324.         {
  325.         char arg;
  326.         BGET_U8(arg);
  327.         IoTYPE(PL_bytecode_sv) = arg;
  328.         break;
  329.         }
  330.       case INSN_XIO_FLAGS:        /* 43 */
  331.         {
  332.         char arg;
  333.         BGET_U8(arg);
  334.         IoFLAGS(PL_bytecode_sv) = arg;
  335.         break;
  336.         }
  337.       case INSN_XCV_STASH:        /* 44 */
  338.         {
  339.         svindex arg;
  340.         BGET_svindex(arg);
  341.         *(SV**)&CvSTASH(PL_bytecode_sv) = arg;
  342.         break;
  343.         }
  344.       case INSN_XCV_START:        /* 45 */
  345.         {
  346.         opindex arg;
  347.         BGET_opindex(arg);
  348.         CvSTART(PL_bytecode_sv) = arg;
  349.         break;
  350.         }
  351.       case INSN_XCV_ROOT:        /* 46 */
  352.         {
  353.         opindex arg;
  354.         BGET_opindex(arg);
  355.         CvROOT(PL_bytecode_sv) = arg;
  356.         break;
  357.         }
  358.       case INSN_XCV_GV:        /* 47 */
  359.         {
  360.         svindex arg;
  361.         BGET_svindex(arg);
  362.         *(SV**)&CvGV(PL_bytecode_sv) = arg;
  363.         break;
  364.         }
  365.       case INSN_XCV_FILEGV:        /* 48 */
  366.         {
  367.         svindex arg;
  368.         BGET_svindex(arg);
  369.         *(SV**)&CvFILEGV(PL_bytecode_sv) = arg;
  370.         break;
  371.         }
  372.       case INSN_XCV_DEPTH:        /* 49 */
  373.         {
  374.         long arg;
  375.         BGET_I32(arg);
  376.         CvDEPTH(PL_bytecode_sv) = arg;
  377.         break;
  378.         }
  379.       case INSN_XCV_PADLIST:        /* 50 */
  380.         {
  381.         svindex arg;
  382.         BGET_svindex(arg);
  383.         *(SV**)&CvPADLIST(PL_bytecode_sv) = arg;
  384.         break;
  385.         }
  386.       case INSN_XCV_OUTSIDE:        /* 51 */
  387.         {
  388.         svindex arg;
  389.         BGET_svindex(arg);
  390.         *(SV**)&CvOUTSIDE(PL_bytecode_sv) = arg;
  391.         break;
  392.         }
  393.       case INSN_XCV_FLAGS:        /* 52 */
  394.         {
  395.         U8 arg;
  396.         BGET_U8(arg);
  397.         CvFLAGS(PL_bytecode_sv) = arg;
  398.         break;
  399.         }
  400.       case INSN_AV_EXTEND:        /* 53 */
  401.         {
  402.         SSize_t arg;
  403.         BGET_I32(arg);
  404.         BSET_av_extend(PL_bytecode_sv, arg);
  405.         break;
  406.         }
  407.       case INSN_AV_PUSH:        /* 54 */
  408.         {
  409.         svindex arg;
  410.         BGET_svindex(arg);
  411.         BSET_av_push(PL_bytecode_sv, arg);
  412.         break;
  413.         }
  414.       case INSN_XAV_FILL:        /* 55 */
  415.         {
  416.         SSize_t arg;
  417.         BGET_I32(arg);
  418.         AvFILLp(PL_bytecode_sv) = arg;
  419.         break;
  420.         }
  421.       case INSN_XAV_MAX:        /* 56 */
  422.         {
  423.         SSize_t arg;
  424.         BGET_I32(arg);
  425.         AvMAX(PL_bytecode_sv) = arg;
  426.         break;
  427.         }
  428.       case INSN_XAV_FLAGS:        /* 57 */
  429.         {
  430.         U8 arg;
  431.         BGET_U8(arg);
  432.         AvFLAGS(PL_bytecode_sv) = arg;
  433.         break;
  434.         }
  435.       case INSN_XHV_RITER:        /* 58 */
  436.         {
  437.         I32 arg;
  438.         BGET_I32(arg);
  439.         HvRITER(PL_bytecode_sv) = arg;
  440.         break;
  441.         }
  442.       case INSN_XHV_NAME:        /* 59 */
  443.         {
  444.         pvcontents arg;
  445.         BGET_pvcontents(arg);
  446.         HvNAME(PL_bytecode_sv) = arg;
  447.         break;
  448.         }
  449.       case INSN_HV_STORE:        /* 60 */
  450.         {
  451.         svindex arg;
  452.         BGET_svindex(arg);
  453.         BSET_hv_store(PL_bytecode_sv, arg);
  454.         break;
  455.         }
  456.       case INSN_SV_MAGIC:        /* 61 */
  457.         {
  458.         char arg;
  459.         BGET_U8(arg);
  460.         BSET_sv_magic(PL_bytecode_sv, arg);
  461.         break;
  462.         }
  463.       case INSN_MG_OBJ:        /* 62 */
  464.         {
  465.         svindex arg;
  466.         BGET_svindex(arg);
  467.         SvMAGIC(PL_bytecode_sv)->mg_obj = arg;
  468.         break;
  469.         }
  470.       case INSN_MG_PRIVATE:        /* 63 */
  471.         {
  472.         U16 arg;
  473.         BGET_U16(arg);
  474.         SvMAGIC(PL_bytecode_sv)->mg_private = arg;
  475.         break;
  476.         }
  477.       case INSN_MG_FLAGS:        /* 64 */
  478.         {
  479.         U8 arg;
  480.         BGET_U8(arg);
  481.         SvMAGIC(PL_bytecode_sv)->mg_flags = arg;
  482.         break;
  483.         }
  484.       case INSN_MG_PV:        /* 65 */
  485.         {
  486.         pvcontents arg;
  487.         BGET_pvcontents(arg);
  488.         BSET_mg_pv(SvMAGIC(PL_bytecode_sv), arg);
  489.         break;
  490.         }
  491.       case INSN_XMG_STASH:        /* 66 */
  492.         {
  493.         svindex arg;
  494.         BGET_svindex(arg);
  495.         *(SV**)&SvSTASH(PL_bytecode_sv) = arg;
  496.         break;
  497.         }
  498.       case INSN_GV_FETCHPV:        /* 67 */
  499.         {
  500.         strconst arg;
  501.         BGET_strconst(arg);
  502.         BSET_gv_fetchpv(PL_bytecode_sv, arg);
  503.         break;
  504.         }
  505.       case INSN_GV_STASHPV:        /* 68 */
  506.         {
  507.         strconst arg;
  508.         BGET_strconst(arg);
  509.         BSET_gv_stashpv(PL_bytecode_sv, arg);
  510.         break;
  511.         }
  512.       case INSN_GP_SV:        /* 69 */
  513.         {
  514.         svindex arg;
  515.         BGET_svindex(arg);
  516.         GvSV(PL_bytecode_sv) = arg;
  517.         break;
  518.         }
  519.       case INSN_GP_REFCNT:        /* 70 */
  520.         {
  521.         U32 arg;
  522.         BGET_U32(arg);
  523.         GvREFCNT(PL_bytecode_sv) = arg;
  524.         break;
  525.         }
  526.       case INSN_GP_REFCNT_ADD:        /* 71 */
  527.         {
  528.         I32 arg;
  529.         BGET_I32(arg);
  530.         BSET_gp_refcnt_add(GvREFCNT(PL_bytecode_sv), arg);
  531.         break;
  532.         }
  533.       case INSN_GP_AV:        /* 72 */
  534.         {
  535.         svindex arg;
  536.         BGET_svindex(arg);
  537.         *(SV**)&GvAV(PL_bytecode_sv) = arg;
  538.         break;
  539.         }
  540.       case INSN_GP_HV:        /* 73 */
  541.         {
  542.         svindex arg;
  543.         BGET_svindex(arg);
  544.         *(SV**)&GvHV(PL_bytecode_sv) = arg;
  545.         break;
  546.         }
  547.       case INSN_GP_CV:        /* 74 */
  548.         {
  549.         svindex arg;
  550.         BGET_svindex(arg);
  551.         *(SV**)&GvCV(PL_bytecode_sv) = arg;
  552.         break;
  553.         }
  554.       case INSN_GP_FILEGV:        /* 75 */
  555.         {
  556.         svindex arg;
  557.         BGET_svindex(arg);
  558.         *(SV**)&GvFILEGV(PL_bytecode_sv) = arg;
  559.         break;
  560.         }
  561.       case INSN_GP_IO:        /* 76 */
  562.         {
  563.         svindex arg;
  564.         BGET_svindex(arg);
  565.         *(SV**)&GvIOp(PL_bytecode_sv) = arg;
  566.         break;
  567.         }
  568.       case INSN_GP_FORM:        /* 77 */
  569.         {
  570.         svindex arg;
  571.         BGET_svindex(arg);
  572.         *(SV**)&GvFORM(PL_bytecode_sv) = arg;
  573.         break;
  574.         }
  575.       case INSN_GP_CVGEN:        /* 78 */
  576.         {
  577.         U32 arg;
  578.         BGET_U32(arg);
  579.         GvCVGEN(PL_bytecode_sv) = arg;
  580.         break;
  581.         }
  582.       case INSN_GP_LINE:        /* 79 */
  583.         {
  584.         line_t arg;
  585.         BGET_U16(arg);
  586.         GvLINE(PL_bytecode_sv) = arg;
  587.         break;
  588.         }
  589.       case INSN_GP_SHARE:        /* 80 */
  590.         {
  591.         svindex arg;
  592.         BGET_svindex(arg);
  593.         BSET_gp_share(PL_bytecode_sv, arg);
  594.         break;
  595.         }
  596.       case INSN_XGV_FLAGS:        /* 81 */
  597.         {
  598.         U8 arg;
  599.         BGET_U8(arg);
  600.         GvFLAGS(PL_bytecode_sv) = arg;
  601.         break;
  602.         }
  603.       case INSN_OP_NEXT:        /* 82 */
  604.         {
  605.         opindex arg;
  606.         BGET_opindex(arg);
  607.         PL_op->op_next = arg;
  608.         break;
  609.         }
  610.       case INSN_OP_SIBLING:        /* 83 */
  611.         {
  612.         opindex arg;
  613.         BGET_opindex(arg);
  614.         PL_op->op_sibling = arg;
  615.         break;
  616.         }
  617.       case INSN_OP_PPADDR:        /* 84 */
  618.         {
  619.         strconst arg;
  620.         BGET_strconst(arg);
  621.         BSET_op_ppaddr(PL_op->op_ppaddr, arg);
  622.         break;
  623.         }
  624.       case INSN_OP_TARG:        /* 85 */
  625.         {
  626.         PADOFFSET arg;
  627.         BGET_U32(arg);
  628.         PL_op->op_targ = arg;
  629.         break;
  630.         }
  631.       case INSN_OP_TYPE:        /* 86 */
  632.         {
  633.         OPCODE arg;
  634.         BGET_U16(arg);
  635.         BSET_op_type(PL_op, arg);
  636.         break;
  637.         }
  638.       case INSN_OP_SEQ:        /* 87 */
  639.         {
  640.         U16 arg;
  641.         BGET_U16(arg);
  642.         PL_op->op_seq = arg;
  643.         break;
  644.         }
  645.       case INSN_OP_FLAGS:        /* 88 */
  646.         {
  647.         U8 arg;
  648.         BGET_U8(arg);
  649.         PL_op->op_flags = arg;
  650.         break;
  651.         }
  652.       case INSN_OP_PRIVATE:        /* 89 */
  653.         {
  654.         U8 arg;
  655.         BGET_U8(arg);
  656.         PL_op->op_private = arg;
  657.         break;
  658.         }
  659.       case INSN_OP_FIRST:        /* 90 */
  660.         {
  661.         opindex arg;
  662.         BGET_opindex(arg);
  663.         cUNOP->op_first = arg;
  664.         break;
  665.         }
  666.       case INSN_OP_LAST:        /* 91 */
  667.         {
  668.         opindex arg;
  669.         BGET_opindex(arg);
  670.         cBINOP->op_last = arg;
  671.         break;
  672.         }
  673.       case INSN_OP_OTHER:        /* 92 */
  674.         {
  675.         opindex arg;
  676.         BGET_opindex(arg);
  677.         cLOGOP->op_other = arg;
  678.         break;
  679.         }
  680.       case INSN_OP_TRUE:        /* 93 */
  681.         {
  682.         opindex arg;
  683.         BGET_opindex(arg);
  684.         cCONDOP->op_true = arg;
  685.         break;
  686.         }
  687.       case INSN_OP_FALSE:        /* 94 */
  688.         {
  689.         opindex arg;
  690.         BGET_opindex(arg);
  691.         cCONDOP->op_false = arg;
  692.         break;
  693.         }
  694.       case INSN_OP_CHILDREN:        /* 95 */
  695.         {
  696.         U32 arg;
  697.         BGET_U32(arg);
  698.         cLISTOP->op_children = arg;
  699.         break;
  700.         }
  701.       case INSN_OP_PMREPLROOT:        /* 96 */
  702.         {
  703.         opindex arg;
  704.         BGET_opindex(arg);
  705.         cPMOP->op_pmreplroot = arg;
  706.         break;
  707.         }
  708.       case INSN_OP_PMREPLROOTGV:        /* 97 */
  709.         {
  710.         svindex arg;
  711.         BGET_svindex(arg);
  712.         *(SV**)&cPMOP->op_pmreplroot = arg;
  713.         break;
  714.         }
  715.       case INSN_OP_PMREPLSTART:        /* 98 */
  716.         {
  717.         opindex arg;
  718.         BGET_opindex(arg);
  719.         cPMOP->op_pmreplstart = arg;
  720.         break;
  721.         }
  722.       case INSN_OP_PMNEXT:        /* 99 */
  723.         {
  724.         opindex arg;
  725.         BGET_opindex(arg);
  726.         *(OP**)&cPMOP->op_pmnext = arg;
  727.         break;
  728.         }
  729.       case INSN_PREGCOMP:        /* 100 */
  730.         {
  731.         pvcontents arg;
  732.         BGET_pvcontents(arg);
  733.         BSET_pregcomp(PL_op, arg);
  734.         break;
  735.         }
  736.       case INSN_OP_PMFLAGS:        /* 101 */
  737.         {
  738.         U16 arg;
  739.         BGET_U16(arg);
  740.         cPMOP->op_pmflags = arg;
  741.         break;
  742.         }
  743.       case INSN_OP_PMPERMFLAGS:        /* 102 */
  744.         {
  745.         U16 arg;
  746.         BGET_U16(arg);
  747.         cPMOP->op_pmpermflags = arg;
  748.         break;
  749.         }
  750.       case INSN_OP_SV:        /* 103 */
  751.         {
  752.         svindex arg;
  753.         BGET_svindex(arg);
  754.         cSVOP->op_sv = arg;
  755.         break;
  756.         }
  757.       case INSN_OP_GV:        /* 104 */
  758.         {
  759.         svindex arg;
  760.         BGET_svindex(arg);
  761.         *(SV**)&cGVOP->op_gv = arg;
  762.         break;
  763.         }
  764.       case INSN_OP_PV:        /* 105 */
  765.         {
  766.         pvcontents arg;
  767.         BGET_pvcontents(arg);
  768.         cPVOP->op_pv = arg;
  769.         break;
  770.         }
  771.       case INSN_OP_PV_TR:        /* 106 */
  772.         {
  773.         op_tr_array arg;
  774.         BGET_op_tr_array(arg);
  775.         cPVOP->op_pv = arg;
  776.         break;
  777.         }
  778.       case INSN_OP_REDOOP:        /* 107 */
  779.         {
  780.         opindex arg;
  781.         BGET_opindex(arg);
  782.         cLOOP->op_redoop = arg;
  783.         break;
  784.         }
  785.       case INSN_OP_NEXTOP:        /* 108 */
  786.         {
  787.         opindex arg;
  788.         BGET_opindex(arg);
  789.         cLOOP->op_nextop = arg;
  790.         break;
  791.         }
  792.       case INSN_OP_LASTOP:        /* 109 */
  793.         {
  794.         opindex arg;
  795.         BGET_opindex(arg);
  796.         cLOOP->op_lastop = arg;
  797.         break;
  798.         }
  799.       case INSN_COP_LABEL:        /* 110 */
  800.         {
  801.         pvcontents arg;
  802.         BGET_pvcontents(arg);
  803.         cCOP->cop_label = arg;
  804.         break;
  805.         }
  806.       case INSN_COP_STASH:        /* 111 */
  807.         {
  808.         svindex arg;
  809.         BGET_svindex(arg);
  810.         *(SV**)&cCOP->cop_stash = arg;
  811.         break;
  812.         }
  813.       case INSN_COP_FILEGV:        /* 112 */
  814.         {
  815.         svindex arg;
  816.         BGET_svindex(arg);
  817.         *(SV**)&cCOP->cop_filegv = arg;
  818.         break;
  819.         }
  820.       case INSN_COP_SEQ:        /* 113 */
  821.         {
  822.         U32 arg;
  823.         BGET_U32(arg);
  824.         cCOP->cop_seq = arg;
  825.         break;
  826.         }
  827.       case INSN_COP_ARYBASE:        /* 114 */
  828.         {
  829.         I32 arg;
  830.         BGET_I32(arg);
  831.         cCOP->cop_arybase = arg;
  832.         break;
  833.         }
  834.       case INSN_COP_LINE:        /* 115 */
  835.         {
  836.         line_t arg;
  837.         BGET_U16(arg);
  838.         cCOP->cop_line = arg;
  839.         break;
  840.         }
  841.       case INSN_MAIN_START:        /* 116 */
  842.         {
  843.         opindex arg;
  844.         BGET_opindex(arg);
  845.         PL_main_start = arg;
  846.         break;
  847.         }
  848.       case INSN_MAIN_ROOT:        /* 117 */
  849.         {
  850.         opindex arg;
  851.         BGET_opindex(arg);
  852.         PL_main_root = arg;
  853.         break;
  854.         }
  855.       case INSN_CURPAD:        /* 118 */
  856.         {
  857.         svindex arg;
  858.         BGET_svindex(arg);
  859.         BSET_curpad(PL_curpad, arg);
  860.         break;
  861.         }
  862.       default:
  863.         croak("Illegal bytecode instruction %d\n", insn);
  864.         /* NOTREACHED */
  865.     }
  866.     }
  867. }
  868.